home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / pcmpass / form1.frm (.txt) next >
Encoding:
Visual Basic Form  |  1999-04-04  |  2.4 KB  |  87 lines
  1. VERSION 5.00
  2. Object = "{694C2364-E711-11D2-8B3A-000000000000}#14.0#0"; "PCMPass.ocx"
  3. Begin VB.Form Form1 
  4.    Caption         =   "Sample Pass"
  5.    ClientHeight    =   1395
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   4470
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   1395
  11.    ScaleWidth      =   4470
  12.    StartUpPosition =   2  'CenterScreen
  13.    Begin VB.CommandButton Command2 
  14.       Caption         =   "Exit"
  15.       Height          =   495
  16.       Left            =   3000
  17.       TabIndex        =   5
  18.       Top             =   600
  19.       Width           =   1215
  20.    End
  21.    Begin PCMPass.Pass Pass1 
  22.       Left            =   0
  23.       Top             =   720
  24.       _ExtentX        =   873
  25.       _ExtentY        =   1085
  26.    End
  27.    Begin VB.CommandButton Command1 
  28.       Caption         =   "Log On"
  29.       Default         =   -1  'True
  30.       Height          =   495
  31.       Left            =   3000
  32.       TabIndex        =   2
  33.       Top             =   120
  34.       Width           =   1215
  35.    End
  36.    Begin VB.TextBox Text2 
  37.       Height          =   285
  38.       Left            =   1080
  39.       TabIndex        =   1
  40.       Top             =   480
  41.       Width           =   1815
  42.    End
  43.    Begin VB.TextBox Text1 
  44.       Height          =   285
  45.       Left            =   1080
  46.       TabIndex        =   0
  47.       Top             =   120
  48.       Width           =   1815
  49.    End
  50.    Begin VB.Label Label3 
  51.       Caption         =   "Password:"
  52.       Height          =   255
  53.       Left            =   240
  54.       TabIndex        =   4
  55.       Top             =   480
  56.       Width           =   1215
  57.    End
  58.    Begin VB.Label Label2 
  59.       Caption         =   "User Name:"
  60.       Height          =   255
  61.       Left            =   120
  62.       TabIndex        =   3
  63.       Top             =   120
  64.       Width           =   1215
  65.    End
  66. Attribute VB_Name = "Form1"
  67. Attribute VB_GlobalNameSpace = False
  68. Attribute VB_Creatable = False
  69. Attribute VB_PredeclaredId = True
  70. Attribute VB_Exposed = False
  71. Private Sub Command1_Click()
  72. With Pass1
  73.     .UserName = Text1.Text
  74.     .PassWord = Text2.Text
  75.     .LogOn
  76.     If .ValidLogIn = True Then
  77.     Unload Form1
  78.     Form2.Show
  79.     Form2.SetFocus
  80.     Else
  81.     MsgBox "Invalid UserName or Password!", vbCritical
  82.     End If
  83. End With
  84. End Sub
  85. Private Sub Command2_Click()
  86. End Sub
  87.